function Vazruden_Emote(Unit, Event)
Unit:SendChatMessage(14, 0,"Vous avez relevé de nombreux défis, la pitié, ils en ont tous été vain. Bientôt, votre peuple s'agenoura devant mon seigneur!")
end

function Vazruden_OnCombat(Unit, Event)
Unit:SendChatMessage(14, 0, "Le Seigneur des Ténèbres rit de vous!")
Unit:RegisterEvent("Vazruden_Spell1", 10000, 0)
end

function Vazruden_Spell1(Unit, Event)
Unit:FullCastSpellOnTarget(19130, Unit:GetMainTank(0))
end

function Vazruden_OnLeaveCombat(Unit, Event)
Unit:SendChatMessage(14, 0, "N'y a-t'il plus personne pour me tester ?")
Unit:RemoveEvents() 
end

function Vazruden_OnKilledTarget(Unit, Event)
Unit:SendChatMessage(14, 0, "Il n'est plus. C'est fini!")
end

function Vazruden_OnDied(Unit, Event)
Unit:SendChatMessage(14, 0, "Mon seigneur sera la fin, pour vous tous ...")
Unit:RemoveEvents() 
end

RegisterUnitEvent(17537, 1, "Vazruden_OnCombat")
RegisterUnitEvent(17537, 2, "Vazruden_OnLeaveCombat")
RegisterUnitEvent(17537, 3, "Vazruden_OnKilledTarget")
RegisterUnitEvent(17537, 4, "Vazruden_OnDied")
RegisterUnitEvent(17537, 22, "Vazruden_Emote")